home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / sholdt.zip / SHOLDT.PAS < prev   
Pascal/Delphi Source File  |  1992-07-02  |  2KB  |  46 lines
  1. program Test_ShowLDT;
  2.  
  3. uses
  4.   OpCrt,
  5.   OpString,
  6.   LDTWin;
  7.  
  8. const
  9.   Colors : ColorSet = (
  10.     TextColor       : $1B; TextMono       : $0F;
  11.     CtrlColor       : $1C; CtrlMono       : $0F;
  12.     FrameColor      : $13; FrameMono      : $07;
  13.     HeaderColor     : $1F; HeaderMono     : $0F;
  14.     ShadowColor     : $08; ShadowMono     : $07;
  15.     HighlightColor  : $1E; HighlightMono  : $0F;
  16.     PromptColor     : $1E; PromptMono     : $07;
  17.     SelPromptColor  : $1F; SelPromptMono  : $0F;
  18.     ProPromptColor  : $17; ProPromptMono  : $07;
  19.     FieldColor      : $1F; FieldMono      : $70;
  20.     SelFieldColor   : $20; SelFieldMono   : $70;
  21.     ProFieldColor   : $18; ProFieldMono   : $07;
  22.     ScrollBarColor  : $07; ScrollBarMono  : $07;
  23.     SliderColor     : $70; SliderMono     : $07;
  24.     HotSpotColor    : $70; HotSpotMono    : $07;
  25.     BlockColor      : $3E; BlockMono      : $0F;
  26.     MarkerColor     : $4F; MarkerMono     : $70;
  27.     DelimColor      : $0F; DelimMono      : $0F;
  28.     SelDelimColor   : $70; SelDelimMono   : $70;
  29.     ProDelimColor   : $07; ProDelimMono   : $07;
  30.     SelItemColor    : $20; SelItemMono    : $70;
  31.     ProItemColor    : $17; ProItemMono    : $07;
  32.     HighItemColor   : $1F; HighItemMono   : $09;
  33.     AltItemColor    : $1E; AltItemMono    : $07;
  34.     AltSelItemColor : $2F; AltSelItemMono : $70;
  35.     FlexAHelpColor  : $1F; FlexAHelpMono  : $0F;
  36.     FlexBHelpColor  : $1E; FlexBHelpMono  : $02;
  37.     FlexCHelpColor  : $4F; FlexCHelpMono  : $70;
  38.     UnselXrefColor  : $20; UnselXrefMono  : $09;
  39.     SelXrefColor    : $5F; SelXrefMono    : $70;
  40.     MouseColor      : $4E; MouseMono      : $70
  41.   );
  42.  
  43. begin
  44.   ShowLDT(Colors);
  45. end.
  46.